home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 6 / CU Amiga Magazine's Super CD-ROM 06 (1996)(EMAP Images)(GB)(Track 1 of 4)[!][issue 1997-01].iso / cucd / magazine / executive_v2.00 / uninstall.executive < prev   
Text File  |  1996-10-27  |  11KB  |  303 lines

  1. ;
  2. ; Executive UnInstallation script
  3. ;
  4. ; Copyright © 1995-96 Petri Nordlund. All rights reserved.
  5. ;
  6. ; $Id: UnInstall.Executive 1.12 1996/10/24 11:56:01 petrin Exp petrin $
  7. ;
  8.  
  9.  
  10. ; =======================================================================
  11. ;   Set up some variables
  12. ; =======================================================================
  13.  
  14. (set TRUE        1)
  15. (set FALSE        0)
  16.  
  17. ; =======================================================================
  18. ;   Set up localized strings
  19. ; =======================================================================
  20.  
  21. ; ==== Ask users language
  22. (set sel_lang
  23.     (askchoice
  24.         (prompt "Please select your language")
  25.         (help @askoptions-help)
  26.         (choices
  27.             "English"
  28.             "Suomi"
  29.             "Français"
  30.             "Deutsch"
  31. ;            "Norsk"
  32.             "Nederlands"
  33.             "Svenska"
  34. ;            "Dansk"
  35. ;            "Español"
  36. ;            "Italiano"
  37. ;            "Português"
  38.             "Polski"
  39.         )
  40.         (default 0)
  41.     )
  42. )
  43.  
  44. (set @language
  45.     (select sel_lang
  46.         "English"
  47.         "Suomi"
  48.         "Français"
  49.         "Deutsch"
  50. ;        "Norsk"
  51.         "Nederlands"
  52.         "Svenska"
  53. ;        "Dansk"
  54. ;        "Español"
  55. ;        "Italiano"
  56. ;        "Português"
  57.         "Polski"
  58.             ""
  59.     )
  60. )
  61.  
  62.  
  63. ;
  64. ; ===== English
  65. ;
  66. (set #please_close "\nThis program will DELETE Executive from your harddisk. All files that belong to Executive will be deleted. Other files won't be touched.\n\n\nPLEASE CLOSE THE EXECUTIVE DIRECTORY WINDOW IN WORKBENCH SCREEN SO THE DIRECTORY CAN BE DELETED.")
  67. (set #savekey "\nDo you want to copy your personal keyfile to S: directory, so it will be saved for the time when you reinstall Executive? Executive will find the key from S: directory.")
  68. (set #yes "Yes, copy key to S:")
  69. (set #no "No, delete the key")
  70. (set #userstartup "; Executive has been uninstalled.")
  71. (set #rempath "\nA `Path'-command in your \"S:User-Startup\" file will now be removed.")
  72. (set #remhelp "When you installed Executive, the installation script added some commands to your \"S:User-Startup\" file. These commands will now be removed.")
  73. (set #done "\nExecutive has been uninstalled successfully.")
  74.  
  75. ;
  76. ; ===== Suomi
  77. ;
  78. (if (OR (= @language "Suomi") (= @language "suomi"))
  79. (
  80. (set #please_close "\nTämä ohjelma POISTAA Executiven kovalevyltäsi. Kaikki Executiveen kuuluvat tiedostot tuhotaan. Muihin tiedostoihin ei kosketa.\n\n\nSULJE WORKBENCH-RUUDULLA AVOINNA OLEVA EXECUTIVEN HAKEMISTO-IKKUNA, MUUTOIN HAKEMISTOA EI VOI POISTAA.")
  81. (set #savekey "\nHaluatko kopioida henkilökohtaisen suojausavaimesi S: hakemistoon, josta Executive löytää sen jos asennat Executiven uudelleen?")
  82. (set #yes "Kyllä")
  83. (set #no "En")
  84. (set #userstartup "; Executive on poistettu.")
  85. (set #rempath "\n`Path´-komento \"S:User-Startup\" tiedostossa poistetaan.")
  86. (set #remhelp "Kun asensit Executiven, asennusohjelma lisäsi muutamia komentoja \"S:User-Startup\" tiedostoon. Nämä komennot poistetaan.")
  87. (set #done "\nExecutive on onnistuneesti poistettu koneestasi.")
  88. )) ; end of if statement
  89.  
  90. ;
  91. ; ===== Français
  92. ;
  93. (if (OR (= @language "Français") (= @language "français"))
  94. (
  95. (set #please_close "\nCe programme EFFACERA Executive de votre disque dur. Tous les fichiers appartenant à Executive seront effacés. Les autres fichiers resteront intacts.\n\n\nVEUILLER FERMER LA FENETRE REPERTOIRE EXECUTIVE DANS L'ECRAN WORKBENCH POUR QUE LE REPERTOIRE PUISSE ETRE EFFACE.")
  96. (set #savekey "\nVoulez vous que votre clé personnelle soit copiée dans le répertoire S:, pour qu'elle soit sauvée pour le moment où vous réinstallerez Executive ? Executive trouvera la clé dans le répertoire S:.")
  97. (set #yes "Oui, copie de la clé dans S:")
  98. (set #no "Non, effacement de la clé")
  99. (set #userstartup "; Executive a été désinstallé.")
  100. (set #rempath "\nUne commande `Path' dans votre fichier \"S:User-Startup\" va maintenant être enlevée.")
  101. (set #remhelp "Quand vous avez installé Executive, le script d'installation a ajouté quelques commandes dans votre fichier \"S:User-Startup\". Ces commandes vont maintenant être enlevées.")
  102. (set #done "\nExecutive a été désinstallé avec succès.")
  103. )) ; end of if statement
  104.  
  105. ;
  106. ; ===== Deutsch
  107. ;
  108. (if (OR (= @language "Deutsch") (= @language "deutsch"))
  109. (
  110. (set #please_close "\nDieses Programm entfernt Executive aus Ihrem System. Alle Dateien die zu Executive gehören werden entfernt, andere Dateien sind nicht betroffen.\n\n\nBITTE SCHLIEßEN SIE DAS EXECUTIVE VERZEICHNISFENTER AUF DER WORKBENCH - SONST KANN ES NICHT GELÖSCHT WERDEN.")
  111. (set #savekey "\nMöchten Sie Ihr Keyfile nach S: kopieren, damit es nicht verloren ist falls Sie Executive wieder installieren möchten ?")
  112. (set #yes "Ja, Keyfile kopieren")
  113. (set #no "Nein, Keyfile löschen")
  114. (set #userstartup "; Executive has been uninstalled.")
  115. (set #rempath "\nDer `Path'-Befehl in Ihrer \"S:User-Startup\" wird nun entfernt")
  116. (set #remhelp "Als Sie Executive installiert haben, hat das Installationsskript ein paar Befehle zu Ihrer \"S:User-Startup\" hinzugefügt. Diese Befehle werden jetzt wieder entfernt.")
  117. (set #done "\nExecutive wurde komplett entfernt.")
  118. )) ; end of if statement
  119.  
  120. ;
  121. ; ===== Norsk
  122. ;
  123. ;(if (OR (= @language "Norsk") (= @language "norsk"))
  124. ;(
  125. ;)) ; end of if statement
  126.  
  127. ;
  128. ; ===== Nederlands
  129. ;
  130. (if (OR (= @language "Nederlands") (= @language "nederlands"))
  131. (
  132. (set #please_close "\nDit programma zal Executive van uw harddisk verwijderen. Alle bestanden die behoren tot Executive zullen worden verwijderd. Andere bestanden zullen met rust worden gelaten.\n\n\nSLUIT U ALSTUBLIEFT DE EXECUTIVE LADE IN UW WORKBENCH ZODAT EXECUTIVE KAN WORDEN VERWIJDERD.")
  133. (set #savekey "\nWilt u uw persoonlijke keyfile naar de S: lade gekopieërd hebben, zodat deze kan worden bewaard voor het geval dat u Executive opnieuw wilt installeren? Executive zal deze keyfile ook vinden vanuit de S: lade.")
  134. (set #yes "Ja, kopieër key naar S:")
  135. (set #userstartup "; Executive is verwijderd.")
  136. (set #rempath "\nEen `Path'-commando in uw \"S:User-Startup\" bestand zal nu worden verwijderd.")
  137. (set #remhelp "Toen u Executive geïnstalleerd heeft, heeft het installatie script enkele commando's toegevoegd aan uw \"S:User-Startup\" bestand. Deze commando's zullen nu verwijderd worden.")
  138. (set #done "\nExecutive is succesvol verwijderd.")
  139. )) ; end of if statement
  140.  
  141. ;
  142. ; ===== Svenska
  143. ;
  144. (if (OR (= @language "Svenska") (= @language "svenska"))
  145. (
  146. (set #please_close "\nDet här programmet kommer att TA BORT Executive från din hårddisk. Alla filer som tillhör Executive raderas. Andra filer lämnas orörda.\n\n\nSTÄNG EXECUTIVE-FÖNSTRET PÅ WORKBENCHSKÄRMEN SÅ ATT LÅDAN KAN RADERAS.")
  147. (set #savekey "\nVill du kopiera din personliga nyckelfil till S:-lådan, så att den sparas tills du åter installerar Executive? Executive hittar filen i S:-lådan.")
  148. (set #yes "Ja, kopiera nyckeln till S:")
  149. (set #no "Nej, radera nyckeln")
  150. (set #userstartup "; Executive har avinstallerats.")
  151. (set #rempath "\n`Path'-kommandot i din \"S:User-Startup\"-fil kommer nu att tas bort.")
  152. (set #remhelp "När du installerade Executive så adderade installationsskriptet några kommandon till \"S:User-Startup\"-filen. Dessa kommandon tas nu bort.")
  153. (set #done "\nExecutive har avinstallerats.")
  154. )) ; end of if statement
  155.  
  156. ;
  157. ; ===== Dansk
  158. ;
  159. ;(if (OR (= @language "Dansk") (= @language "dansk"))
  160. ;(
  161. ;)) ; end of if statement
  162.  
  163. ;
  164. ; ===== Español
  165. ;
  166. ;(if (OR (= @language "Español") (= @language "español"))
  167. ;(
  168. ;)) ; end of if statement
  169.  
  170. ;
  171. ; ===== Italiano
  172. ;
  173. ;(if (OR (= @language "Italiano") (= @language "italiano"))
  174. ;(
  175. ;)) ; end of if statement
  176.  
  177. ;
  178. ; ===== Português
  179. ;
  180. ;(if (OR (= @language "Português") (= @language "português"))
  181. ;(
  182. ;)) ; end of if statement
  183.  
  184. ;
  185. ; ===== Polski
  186. ;
  187. (if (OR (= @language "Polski") (= @language "polski"))
  188. (
  189. (set #please_close "\nTen program USUNIE Executiva z Twojego dysku. Wszystkie pliki naleûâce do pakietu zostanâ skasowane. Pozostaîe pliki nie pozostanâ nienaruszone.\n\nPROSZË ZAMKNIJ OKNO KATALOGU EXECUTIVE NA EKRANIE WORKBENCHA, TAK ZEBY TEN KATALOG MÓGΠZOSTAÊ SKASOWANY.")
  190. (set #savekey "\nCzy chcesz skopiowaê swój plik kodowy do katalogu S:, tak ûeby byî dostëpny gdy znów zainstalujesz Executiva? Program znajdzie ten plik w katalogu S:")
  191. (set #yes "Tak, skopiuj do S:")
  192. (set #no "Nie, skasuj")
  193. (set #userstartup "; Executive zostaî usuniëty.")
  194. (set #rempath "\nPolecenie `Path' zostanie usuniëte teraz usuniëte z pliku \"S:User-Startup\".")
  195. (set #remhelp "When you installed Executive, the installation script added some commands to your \"S:User-Startup\" file. These commands will now be removed.")
  196. (set #done "\nExecutiva zostaî pomyôlnie usuniëty.")
  197. )) ; end of if statement
  198.  
  199.  
  200. ; =======================================================================
  201. ;   Initialization
  202. ; =======================================================================
  203.  
  204. ; Logfile is written to RAM:
  205. (set @default-dest "RAM:")
  206.  
  207.  
  208. ; change userlevel to expert
  209. (procedure expert_level
  210.     ((user 2))
  211. )
  212. ; reset userlevel back to default
  213. (procedure default_level
  214.     ((user default-level))
  215. )
  216. ; store off userlevel
  217. (procedure save_default_level
  218.     ((set default-level @user-level))
  219. )
  220.  
  221. (save_default_level)
  222. (expert_level)
  223.  
  224. ; =======================================================================
  225. ;   Uninstall
  226. ; =======================================================================
  227.  
  228. (complete 0)
  229.  
  230. (message #please_close)
  231.  
  232. (run "ExDest:Executive/Executive QUIT")
  233.  
  234. (if (exists ("ExDest:Executive/Executive.key") (noreq))
  235. (
  236.     (if (askbool
  237.         (prompt #savekey)
  238.         (help @askbool-help)
  239.         (default 0)
  240.         (choices #yes #no))
  241.         (
  242.             ; copy key
  243.             (run "copy ExDest:Executive/Executive.key S:")
  244.         )
  245.     )
  246. )) ; end of if statement
  247.  
  248. (complete 50)
  249.  
  250. (run "Delete ExDest:Executive ALL FORCE QUIET")
  251. (run "Delete ExDest:Executive.info FORCE QUIET")
  252. (run "Delete S:Executive.prefs QUIET")
  253. (run "Delete ENV:Executive.prefs QUIET")
  254. (run "Delete ENVARC:Executive.prefs QUIET")
  255. (run "Delete LIBS:SysInfo.library FORCE QUIET")
  256. (if (exists "LOCALE:" (noreq))
  257. (
  258.     (run "Delete LOCALE:Catalogs/Suomi/Executive.catalog")
  259.     (run "Delete LOCALE:Catalogs/Français/Executive.catalog")
  260.     (run "Delete LOCALE:Catalogs/Deutsch/Executive.catalog")
  261.     (run "Delete LOCALE:Catalogs/Norsk/Executive.catalog")
  262.     (run "Delete LOCALE:Catalogs/Nederlands/Executive.catalog")
  263.     (run "Delete LOCALE:Catalogs/Svenska/Executive.catalog")
  264.     (run "Delete LOCALE:Catalogs/Dansk/Executive.catalog")
  265.     (run "Delete LOCALE:Catalogs/Español/Executive.catalog")
  266.     (run "Delete LOCALE:Catalogs/Italiano/Executive.catalog")
  267.     (run "Delete LOCALE:Catalogs/Português/Executive.catalog")
  268.     (run "Delete LOCALE:Catalogs/Polski/Executive.catalog")
  269.  
  270.     (run "Delete LOCALE:Catalogs/Suomi/Dashboard.catalog")
  271.     (run "Delete LOCALE:Catalogs/Français/Dashboard.catalog")
  272. ;    (run "Delete LOCALE:Catalogs/Deutsch/Dashboard.catalog")
  273.     (run "Delete LOCALE:Catalogs/Norsk/Dashboard.catalog")
  274. ;    (run "Delete LOCALE:Catalogs/Nederlands/Dashboard.catalog")
  275.     (run "Delete LOCALE:Catalogs/Svenska/Dashboard.catalog")
  276. ;    (run "Delete LOCALE:Catalogs/Dansk/Dashboard.catalog")
  277. ;    (run "Delete LOCALE:Catalogs/Español/Dashboard.catalog")
  278. ;    (run "Delete LOCALE:Catalogs/Italiano/Dashboard.catalog")
  279. ;    (run "Delete LOCALE:Catalogs/Português/Dashboard.catalog")
  280. ;    (run "Delete LOCALE:Catalogs/Polski/Dashboard.catalog")
  281. )) ; end of if statement
  282.  
  283. (complete 90)
  284.  
  285. (default_level)
  286.  
  287. ; ===== Remove path-command from s:user-startup
  288. (startup "Executive"
  289.     (prompt (#rempath))
  290.     (help #remhelp)
  291.     (command #userstartup)
  292. )
  293.  
  294. (complete 100)
  295.  
  296. (makeassign "ExDest" (safe))
  297.  
  298. (expert_level)
  299.  
  300. (message #done)
  301.  
  302. (exit (quiet))
  303.